home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 16 Vendor Support / BINIMG.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  896b  |  21 lines
  1. 10 REMBIN DOWNLOAD TO IMG (C) 1984 JOEL RUBIN
  2. 100 POKE55,0:POKE56,PEEK(56)-1:CLR
  3. 110 Z$="":U=PEEK(45)+256*PEEK(46):POKEU+3,0:POKEU+4,PEEK(56)
  4. 120 PRINT"INPUT FILE, DEVICE, DRIVE";:INPUTFI$,IV,ID:ID=ID+48
  5. 130 OPEN15,IV,15,"I"+CHR$(ID):OPEN2,IV,8,CHR$(ID)+":"+FI$
  6. 140 INPUT#15,A,B$,C,D:IFATHENPRINTA;B$C;D:STOP
  7. 150 GET#2,A$,B$:LH=ASC(A$):IFLH<>4GOTO170
  8. 160 GET#2,U$,V$:U$=U$+V$:GET#2,A$,TY$:IFU$<>"CC"THENTY$="S"
  9. 165 GOTO180
  10. 170 TY$="S":FORI=1TOLH:GET#2,A$:NEXT
  11. 180 PRINT"OUTPUT FILE, DEVICE, DRIVE";:INPUTFI$,OV,OD:OD=OD+48
  12. 190 PRINT"FILE TYPE? (DEFAULT "TY$")";:INPUTTY$
  13. 200 OPEN14,OV,15:IF(IV<>OV)OR(ID<>OD)THENPRINT#14,"I"+CHR$(OD)
  14. 210 OPEN3,OV,3,CHR$(OD)+":"+FI$+","+TY$+",W"
  15. 220 INPUT#14,A,B$,C,D:IFATHENPRINTA;B$C;D:CLOSE2:STOP
  16. 230 PRINT#15,"UI-":PRINT#14,"UI-"
  17. 240 U=PEEK(43)+256*PEEK(44)+767:POKEU+12,PEEK(56)-1:POKE53265,11
  18. 250 SYSU:SS=ST:PRINT#3,Z$;:IFSS=0GOTO240
  19. 260 CLOSE2:CLOSE3:POKE53265,27:PRINT#15,"UI+":PRINT#14,"UI+"
  20. 270 POKE56,PEEK(56)+1:CLR
  21.